Sprite 1984 - 1993/Sprite 1984 - 1993.iso/lib/tex/inputs/oldlfont.sty

Text File | 1991-05-21 | 5.2 KB | 153 lines

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% OLDLFONT.STY                            July 1990      %
%                                                                          %
% This file is part of the AMS-LaTeX Version 1.0 distribution              %
%   American Mathematical Society, Technical Support Group,                %
%   P. O. Box 6248, Providence, RI 02940                                   %
%   800-321-4AMS (321-4267) or 401-455-4080                                %
%   Internet: [e-mail]                                    %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%
%% This is file `oldlfont.sty' generated
%% on <1990/6/30> with the docstrip utility (v1.1k).
%%
%% The original source file was `oldlfont.doc'.
%%
%%
%% Copyright (C) 1989,1990 by Frank Mittelbach, Rainer Schoepf.
%% All rights reserved.
%%
%% IMPORTANT NOTICE:
%%
%% You are not allowed to change this file. You may however copy this file
%% to a file with a different name and then change the copy.
%%
%% You are allowed to distribute this file under the condition that it is
%% distributed together with all files mentioned in readme.mz3. If you
%% receive only some of these files from someone, complain!
%%
%% You are NOT ALLOWED to distribute this file alone. You are NOT ALLOWED
%% to take money for the distribution or use of either this file or a
%% changed version, except for a nominal charge for copying etc.
%%
%% Error Reports in case of UNCHANGED versions to
%%
%% F. Mittelbach
%% Eichenweg 29
%% D-6500 Mainz 1
%% Federal Republic of Germany
%% Bitnet: <PZF5HZ@DRUEDS2>
%%
%% or:
%% R. Sch\"opf
%% Inst. f. Theor. Physik
%% der Universit\"at Heidelberg
%% Philosophenweg 16
%% D-6900 Heidelberg
%% Federal Republic of Germany
%% Bitnet: <BK4@DHDURZ1>
%%
%%
\def\fileversion{v1.2i}
\def\filedate{90/06/29}
\def\docdate {90/06/29}

%% \CheckSum{220}
%% \CharacterTable
%%  {Upper-case    \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
%%   Lower-case    \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
%%   Digits        \0\1\2\3\4\5\6\7\8\9
%%   Exclamation   \!     Double quote  \"     Hash (number) \#
%%   Dollar        \$     Percent       \%     Ampersand     \&
%%   Acute accent  \'     Left paren    \(     Right paren   \)
%%   Asterisk      \*     Plus          \+     Comma         \,
%%   Minus         \-     Point         \.     Solidus       \/
%%   Colon         \:     Semicolon     \;     Less than     \<
%%   Equals        \=     Greater than  \>     Question mark \?
%%   Commercial at \@     Left bracket  \[     Backslash     \\
%%   Right bracket \]     Circumflex    \^     Underscore    \_
%%   Grave accent  \`     Left brace    \{     Vertical bar  \|
%%   Right brace   \}     Tilde         \~}
%% Copyright (C) 1989,1990 Frank Mittelbach and Rainer Sch\"opf,
%% all rights reserved.

\@ifundefined{ds@oldlfont}{\let\ds@oldlfont\@empty}{\endinput}
\immediate
 \write\sixt@@n{Style-Option: `oldlfont'
 \fileversion\space <\filedate>  (FMi and RmS)}
\immediate
 \write\sixt@@n{English Documentation
 \@spaces\@spaces\space <\docdate>  (FMi and RmS)}
\def\newfont#1#2{\@ifdefinable#1{\global
                        \font#1=#2\relax}}
\def\symbol#1{\char #1\relax}
\def\@gobbletwo#1#2{}
\let\load\@gobbletwo
\new@mathgroup\bffam
\new@mathgroup\sffam
\new@mathgroup\ttfam
\new@mathgroup\itfam
\new@mathgroup\scfam
\new@mathgroup\slfam
\new@internalmathalphabet\mathbf\bffam{cmr}{bx}{n}
\new@internalmathalphabet\mathsf\sffam{cmss}{m}{n}
\new@internalmathalphabet\mathtt\ttfam{cmtt}{m}{n}
\new@internalmathalphabet\mathit\itfam{cmr}{m}{it}
\new@internalmathalphabet\mathsc\scfam{cmr}{m}{sc}
\new@internalmathalphabet\mathsl\slfam{cmr}{m}{sl}
\def\prm{\family\rmdefault
    \series\default@series
    \shape\default@shape\selectfont
    \mathrm}
\def\psf{\family\sfdefault
    \series\default@series
    \shape\default@shape\selectfont\mathsf}
\def\psl{\family\rmdefault
    \series\default@series
    \shape\sldefault\selectfont\mathsl}
\def\pbf{\family\rmdefault
    \series\bfdefault
    \shape\default@shape\selectfont\mathbf}
\def\psc{\family\rmdefault
    \series\default@series
    \shape\scdefault\selectfont\mathsc}
\def\pit{\family\rmdefault
    \series\default@series
    \shape\itdefault\selectfont\mathit}
\def\ptt{\family\ttdefault
    \series\default@series
    \shape\default@shape\selectfont\mathtt}
\def\em{\protect\pem}
\def\pem{\@nomath\em \ifdim \fontdimen\@ne\font >\z@
                       \rm \else \it \fi}
\def\@setsize#1#2#3#4{\@nomath#1\size{#4}{#2}%
    \family\default@family
    \series\default@series\shape\default@shape
    \selectfont}

\let\math@bgroup\@empty
\let\math@egroup\@empty
 \ifx\lyfam\undefined
 \new@mathgroup\lyfam
 \define@mathgroup\mv@normal\lyfam
       {lasy}{m}{n}
 \define@mathgroup\mv@bold\lyfam
       {lasy}{b}{n}

\edef\@tempa{\hexnumber@\lyfam}
\mathchardef\mho"0\@tempa 30
\mathchardef\Join"3\@tempa 31
\mathchardef\Box"0\@tempa 32
\mathchardef\Diamond"0\@tempa 33
\mathchardef\leadsto"3\@tempa 3B
\mathchardef\sqsubset"3\@tempa 3C
\mathchardef\sqsupset"3\@tempa 3D
\mathchardef\lhd"3\@tempa 01
\mathchardef\unlhd"3\@tempa 02
\mathchardef\rhd"3\@tempa 03
\mathchardef\unrhd"3\@tempa 04
\fi
\endinput
%%
%% End of file `oldlfont.sty'.